home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 3.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '205 POKE53280,0'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 32 30 35 20 50 4f 4b 45 | 35 33 32 38 30 2c 30 3a |205 POKE|53280,0:|
|00000010| 50 4f 4b 45 35 33 32 38 | 31 2c 30 3a 50 52 49 4e |POKE5328|1,0:PRIN|
|00000020| 54 22 93 05 22 3a 50 52 | 49 4e 54 43 48 52 24 28 |T"..":PR|INTCHR$(|
|00000030| 31 34 29 3a 47 4f 54 4f | 36 30 35 0a 33 31 30 20 |14):GOTO|605.310 |
|00000040| 50 52 49 4e 54 22 93 12 | 1d 11 11 44 49 52 45 43 |PRINT"..|...DIREC|
|00000050| 54 4f 52 59 3a 92 20 d4 | 48 49 53 20 49 53 20 50 |TORY:. .|HIS IS P|
|00000060| 52 4f 56 49 44 45 44 20 | 46 4f 52 20 54 48 45 22 |ROVIDED |FOR THE"|
|00000070| 3a 50 52 49 4e 54 22 43 | 4f 4e 56 45 4e 49 45 4e |:PRINT"C|ONVENIEN|
|00000080| 43 45 20 4f 46 20 54 48 | 45 20 55 53 45 52 2e 22 |CE OF TH|E USER."|
|00000090| 3a 50 52 49 4e 54 22 c9 | 54 20 57 49 4c 4c 20 50 |:PRINT".|T WILL P|
|000000a0| 52 4f 56 45 20 54 4f 20 | 42 45 20 55 53 45 46 55 |ROVE TO |BE USEFU|
|000000b0| 4c 22 3b 3a 50 52 49 4e | 54 22 20 44 55 52 49 4e |L";:PRIN|T" DURIN|
|000000c0| 47 20 54 48 45 22 3a 50 | 52 49 4e 54 22 43 4f 50 |G THE":P|RINT"COP|
|000000d0| 59 49 4e 47 20 50 52 4f | 43 45 53 53 2e 22 3a 50 |YING PRO|CESS.":P|
|000000e0| 52 49 4e 54 22 12 1d 11 | 11 44 49 53 4b 20 54 4f |RINT"...|.DISK TO|
|000000f0| 20 54 41 50 45 3a 92 20 | d4 48 49 53 20 53 55 42 | TAPE:. |.HIS SUB|
|00000100| 52 4f 55 54 49 4e 45 22 | 3a 50 52 49 4e 54 22 50 |ROUTINE"|:PRINT"P|
|00000110| 52 4f 44 55 43 45 53 20 | 41 20 42 41 43 4b 55 50 |RODUCES |A BACKUP|
|00000120| 20 43 4f 50 59 20 4f 46 | 20 41 20 44 49 53 4b 2d | COPY OF| A DISK-|
|00000130| 22 3a 50 52 49 4e 54 22 | 46 49 4c 45 20 54 4f 20 |":PRINT"|FILE TO |
|00000140| 54 41 50 45 2e 22 3b 0a | 33 33 35 20 50 52 49 4e |TAPE.";.|335 PRIN|
|00000150| 54 22 20 c2 45 20 43 41 | 52 45 46 55 4c 20 54 4f |T" .E CA|REFUL TO|
|00000160| 20 52 45 57 49 4e 44 22 | 3a 50 52 49 4e 54 22 43 | REWIND"|:PRINT"C|
|00000170| 41 53 53 45 54 54 45 20 | 57 48 45 4e 20 4e 45 43 |ASSETTE |WHEN NEC|
|00000180| 43 45 53 53 41 52 59 20 | 41 4e 44 20 54 4f 22 3a |CESSARY |AND TO":|
|00000190| 50 52 49 4e 54 22 55 53 | 45 20 54 48 45 20 27 56 |PRINT"US|E THE 'V|
|000001a0| 45 52 49 46 59 20 22 2b | 43 48 52 24 28 33 34 29 |ERIFY "+|CHR$(34)|
|000001b0| 2b 22 46 49 4c 45 4e 41 | 4d 45 22 2b 43 48 52 24 |+"FILENA|ME"+CHR$|
|000001c0| 28 33 34 29 2b 22 27 20 | 52 4f 55 54 49 4e 45 22 |(34)+"' |ROUTINE"|
|000001d0| 3a 50 52 49 4e 54 22 57 | 48 45 52 45 20 4e 45 43 |:PRINT"W|HERE NEC|
|000001e0| 43 45 53 53 41 52 59 20 | 53 4f 20 54 48 41 54 20 |CESSARY |SO THAT |
|000001f0| 54 41 50 45 20 46 49 4c | 45 53 22 3a 50 52 49 4e |TAPE FIL|ES":PRIN|
|00000200| 54 22 41 52 45 20 4e 4f | 54 20 44 45 53 54 52 4f |T"ARE NO|T DESTRO|
|00000210| 59 45 44 2e 22 3a 50 52 | 49 4e 54 22 1d 11 11 11 |YED.":PR|INT"....|
|00000220| 11 3c 43 52 3e 20 54 4f | 20 43 4f 4e 54 49 4e 55 |.<CR> TO| CONTINU|
|00000230| 45 22 0a 33 35 35 20 47 | 45 54 43 52 24 3a 49 46 |E".355 G|ETCR$:IF|
|00000240| 43 52 24 3c 3e 43 48 52 | 24 28 31 33 29 54 48 45 |CR$<>CHR|$(13)THE|
|00000250| 4e 33 35 35 0a 33 36 30 | 20 50 52 49 4e 54 22 93 |N355.360| PRINT".|
|00000260| 12 11 1d 44 49 53 4b 20 | 52 45 53 54 4f 52 45 3a |...DISK |RESTORE:|
|00000270| 92 20 d7 49 54 48 20 54 | 48 49 53 20 52 4f 55 54 |. .ITH T|HIS ROUT|
|00000280| 49 4e 45 2c 22 3a 50 52 | 49 4e 54 22 54 48 45 20 |INE,":PR|INT"THE |
|00000290| 55 53 45 52 20 43 41 4e | 20 52 45 53 54 4f 52 45 |USER CAN| RESTORE|
|000002a0| 20 41 20 44 49 53 4b 2d | 46 49 4c 45 22 3a 50 52 | A DISK-|FILE":PR|
|000002b0| 49 4e 54 22 42 41 43 4b | 45 44 20 55 50 20 4f 4e |INT"BACK|ED UP ON|
|000002c0| 20 43 41 53 53 45 54 54 | 45 2e 22 3a 50 52 49 4e | CASSETT|E.":PRIN|
|000002d0| 54 22 12 1d 11 11 11 52 | 45 54 55 52 4e 20 54 4f |T".....R|ETURN TO|
|000002e0| 20 42 41 53 49 43 3a 92 | 20 c1 46 54 45 52 20 54 | BASIC:.| .FTER T|
|000002f0| 48 45 20 55 53 45 52 22 | 3a 50 52 49 4e 54 22 49 |HE USER"|:PRINT"I|
|00000300| 53 20 46 49 4e 49 53 48 | 45 44 20 57 49 54 48 20 |S FINISH|ED WITH |
|00000310| 54 48 49 53 20 50 52 4f | 47 52 41 4d 20 41 4e 44 |THIS PRO|GRAM AND|
|00000320| 22 3a 50 52 49 4e 54 22 | 57 49 53 48 45 53 20 54 |":PRINT"|WISHES T|
|00000330| 4f 20 52 45 54 55 52 4e | 20 54 4f 20 42 41 53 49 |O RETURN| TO BASI|
|00000340| 43 2c 20 48 45 20 43 41 | 4e 22 0a 33 39 30 20 50 |C, HE CA|N".390 P|
|00000350| 52 49 4e 54 22 43 48 4f | 4f 53 45 20 54 48 49 53 |RINT"CHO|OSE THIS|
|00000360| 20 4f 50 54 49 4f 4e 20 | 57 48 49 43 48 20 4a 55 | OPTION |WHICH JU|
|00000370| 4d 50 53 22 3a 50 52 49 | 4e 54 22 54 4f 20 54 48 |MPS":PRI|NT"TO TH|
|00000380| 45 20 50 57 52 2d 4f 4e | 2d 52 53 54 20 52 4f 55 |E PWR-ON|-RST ROU|
|00000390| 54 49 4e 45 2e 22 3a 50 | 52 49 4e 54 22 1d 11 11 |TINE.":P|RINT"...|
|000003a0| 11 11 3c 43 52 3e 20 54 | 4f 20 43 4f 4e 54 49 4e |..<CR> T|O CONTIN|
|000003b0| 55 45 22 0a 34 30 35 20 | 47 45 54 43 52 24 3a 49 |UE".405 |GETCR$:I|
|000003c0| 46 43 52 24 3c 3e 43 48 | 52 24 28 31 33 29 54 48 |FCR$<>CH|R$(13)TH|
|000003d0| 45 4e 34 30 35 0a 36 30 | 35 20 43 4c 52 3a 50 52 |EN405.60|5 CLR:PR|
|000003e0| 49 4e 54 22 93 22 3a 4d | 45 4d 3d 31 30 32 30 3a |INT".":M|EM=1020:|
|000003f0| 50 52 49 4e 54 53 50 43 | 28 35 29 22 11 12 c4 92 |PRINTSPC|(5)"....|
|00000400| 49 53 4b 20 12 d2 92 45 | 53 54 4f 52 45 20 12 d3 |ISK ...E|STORE ..|
|00000410| 92 55 50 50 4f 52 54 20 | 12 d3 92 59 53 54 45 4d |.UPPORT |...YSTEM|
|00000420| 22 3a 50 52 49 4e 54 53 | 50 43 28 35 29 22 d6 45 |":PRINTS|PC(5)".E|
|00000430| 52 53 49 4f 4e 20 31 2e | 32 22 3a 50 52 49 4e 54 |RSION 1.|2":PRINT|
|00000440| 53 50 43 28 35 29 22 11 | 11 11 2a 2a 2a 2a 2a 2a |SPC(5)".|..******|
|00000450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000460| 22 3a 50 52 49 4e 54 53 | 50 43 28 35 29 22 2a 20 |":PRINTS|PC(5)"* |
|00000470| 31 2e 20 49 4e 53 54 52 | 55 43 54 49 4f 4e 53 20 |1. INSTR|UCTIONS |
|00000480| 20 20 20 2a 22 3a 50 52 | 49 4e 54 53 50 43 28 35 | *":PR|INTSPC(5|
|00000490| 29 22 2a 20 32 2e 20 44 | 49 52 45 43 54 4f 52 59 |)"* 2. D|IRECTORY|
|000004a0| 20 20 20 20 20 20 20 2a | 22 3a 50 52 49 4e 54 53 | *|":PRINTS|
|000004b0| 50 43 28 35 29 22 2a 20 | 33 2e 20 44 49 53 4b 20 |PC(5)"* |3. DISK |
|000004c0| 54 4f 20 54 41 50 45 20 | 20 20 20 2a 22 3a 50 52 |TO TAPE | *":PR|
|000004d0| 49 4e 54 53 50 43 28 35 | 29 22 2a 20 34 2e 20 44 |INTSPC(5|)"* 4. D|
|000004e0| 49 53 4b 20 52 45 53 54 | 4f 52 45 20 20 20 20 2a |ISK REST|ORE *|
|000004f0| 22 0a 36 33 30 20 50 52 | 49 4e 54 53 50 43 28 35 |".630 PR|INTSPC(5|
|00000500| 29 22 2a 20 35 2e 20 52 | 45 54 55 52 4e 20 54 4f |)"* 5. R|ETURN TO|
|00000510| 20 42 41 53 49 43 20 2a | 22 3a 50 52 49 4e 54 53 | BASIC *|":PRINTS|
|00000520| 50 43 28 35 29 22 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |PC(5)"**|********|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 22 3a 49 4e |********|****":IN|
|00000540| 50 55 54 22 1d 11 11 11 | 43 48 4f 49 43 09 00 3b |PUT"....|CHOIC..;|
|00000550| 43 48 4f 49 43 45 3a 91 | 43 48 4f 49 43 45 89 33 |CHOICE:.|CHOICE.3|
|00000560| 31 30 2c 36 30 30 30 2c | 37 30 30 30 2c 38 30 30 |10,6000,|7000,800|
|00000570| 30 2c 39 30 30 30 00 0a | 36 35 30 20 47 4f 54 4f |0,9000..|650 GOTO|
|00000580| 36 30 35 0a 31 30 30 30 | 20 3a 3a 43 4c 4f 53 45 |605.1000| ::CLOSE|
|00000590| 32 3a 50 52 49 4e 54 22 | 9e 11 22 3a 50 52 49 4e |2:PRINT"|..":PRIN|
|000005a0| 54 22 45 52 52 4f 52 20 | 23 22 3b 4e 2c 4e 24 3a |T"ERROR |#";N,N$:|
|000005b0| 43 4c 4f 53 45 31 3a 43 | 4c 4f 53 45 31 35 3a 50 |CLOSE1:C|LOSE15:P|
|000005c0| 52 49 4e 54 22 9a 22 3a | 45 4e 44 0a 33 30 30 30 |RINT".":|END.3000|
|000005d0| 20 3a 3a 50 52 49 4e 54 | 22 9e 11 22 3a 49 46 53 | ::PRINT|"..":IFS|
|000005e0| 52 3d 34 54 48 45 4e 50 | 52 49 4e 54 22 53 54 41 |R=4THENP|RINT"STA|
|000005f0| 54 55 53 20 3d 22 3b 53 | 52 3b 22 53 48 4f 52 54 |TUS =";S|R;"SHORT|
|00000600| 20 42 4c 4f 43 4b 22 0a | 33 30 32 30 20 49 46 53 | BLOCK".|3020 IFS|
|00000610| 52 3d 38 54 48 45 4e 50 | 52 49 4e 54 22 53 54 41 |R=8THENP|RINT"STA|
|00000620| 54 55 53 20 3d 22 3b 53 | 52 3b 22 4c 4f 4e 47 20 |TUS =";S|R;"LONG |
|00000630| 42 4c 4f 43 4b 22 0a 33 | 30 33 30 20 49 46 53 52 |BLOCK".3|030 IFSR|
|00000640| 3d 31 36 54 48 45 4e 50 | 52 49 4e 54 22 53 54 41 |=16THENP|RINT"STA|
|00000650| 54 55 53 20 3d 22 3b 53 | 52 3b 22 55 4e 52 45 43 |TUS =";S|R;"UNREC|
|00000660| 4f 56 45 52 41 42 4c 45 | 20 52 45 41 44 20 45 52 |OVERABLE| READ ER|
|00000670| 52 4f 52 22 0a 33 30 33 | 35 20 49 46 53 52 3d 33 |ROR".303|5 IFSR=3|
|00000680| 32 54 48 45 4e 50 52 49 | 4e 54 22 53 54 41 54 55 |2THENPRI|NT"STATU|
|00000690| 53 20 3d 22 3b 53 52 3b | 22 43 48 45 43 4b 53 55 |S =";SR;|"CHECKSU|
|000006a0| 4d 20 45 52 52 4f 52 22 | 0a 33 30 34 30 20 49 46 |M ERROR"|.3040 IF|
|000006b0| 28 53 52 3c 3e 34 41 4e | 44 53 52 3c 3e 38 41 4e |(SR<>4AN|DSR<>8AN|
|000006c0| 44 53 52 3c 3e 31 36 41 | 4e 44 53 52 3c 3e 33 32 |DSR<>16A|NDSR<>32|
|000006d0| 29 54 48 45 4e 50 52 49 | 4e 54 22 53 54 41 54 55 |)THENPRI|NT"STATU|
|000006e0| 53 20 3d 22 3b 53 52 0a | 33 30 35 30 20 50 52 49 |S =";SR.|3050 PRI|
|000006f0| 4e 54 22 9a 22 3a 45 4e | 44 0a 34 30 30 30 20 3a |NT".":EN|D.4000 :|
|00000700| 3a 50 52 49 4e 54 22 93 | 11 43 48 45 43 4b 49 4e |:PRINT".|.CHECKIN|
|00000710| 47 20 46 49 4c 45 20 53 | 49 5a 45 2e 2e 2e 22 3a |G FILE S|IZE...":|
|00000720| 3a 42 3d 30 0a 34 30 31 | 30 20 47 45 54 23 32 2c |:B=0.401|0 GET#2,|
|00000730| 41 24 3a 53 52 3d 53 54 | 3a 42 3d 42 2b 31 3a 49 |A$:SR=ST|:B=B+1:I|
|00000740| 46 53 52 3d 30 54 48 45 | 4e 34 30 31 30 0a 34 30 |FSR=0THE|N4010.40|
|00000750| 36 32 20 41 24 3d 22 22 | 3a 43 4c 4f 53 45 32 3a |62 A$=""|:CLOSE2:|
|00000760| 43 4c 4f 53 45 31 35 3a | 47 4f 54 4f 37 30 39 34 |CLOSE15:|GOTO7094|
|00000770| 0a 36 30 30 30 20 3a 3a | 43 4c 52 3a 50 52 49 4e |.6000 ::|CLR:PRIN|
|00000780| 54 22 93 22 3a 4f 50 45 | 4e 31 2c 38 2c 30 2c 22 |T".":OPE|N1,8,0,"|
|00000790| 24 30 22 3a 4e 24 3d 43 | 48 52 24 28 30 29 3a 47 |$0":N$=C|HR$(0):G|
|000007a0| 45 54 23 31 2c 41 24 2c | 41 24 0a 36 32 30 30 20 |ET#1,A$,|A$.6200 |
|000007b0| 47 45 54 23 31 2c 41 24 | 2c 41 24 3a 49 46 41 24 |GET#1,A$|,A$:IFA$|
|000007c0| 3d 22 22 47 4f 54 4f 36 | 33 35 30 0a 36 32 32 30 |=""GOTO6|350.6220|
|000007d0| 20 47 45 54 23 31 2c 41 | 24 2c 42 09 0a 36 33 30 | GET#1,A|$,B..630|
|000007e0| 30 20 47 45 54 23 31 2c | 41 24 3a 49 46 41 24 3d |0 GET#1,|A$:IFA$=|
|000007f0| 22 22 54 48 45 4e 50 52 | 49 4e 54 3a 47 4f 54 4f |""THENPR|INT:GOTO|
|00000800| 36 32 30 30 0a 36 33 32 | 30 20 50 52 49 4e 54 41 |6200.632|0 PRINTA|
|00000810| 24 3b 3a 47 4f 54 4f 36 | 33 30 30 0a 36 33 35 30 |$;:GOTO6|300.6350|
|00000820| 20 43 4c 4f 53 45 31 3a | 50 52 49 4e 54 22 11 3c | CLOSE1:|PRINT".<|
|00000830| 43 52 3e 20 54 4f 20 43 | 4f 4e 54 49 4e 55 45 22 |CR> TO C|ONTINUE"|
|00000840| 0a 36 34 30 30 20 47 45 | 54 43 52 24 3a 49 46 43 |.6400 GE|TCR$:IFC|
|00000850| 52 24 3c 3e 43 48 52 24 | 28 31 33 29 54 48 45 4e |R$<>CHR$|(13)THEN|
|00000860| 36 34 30 30 0a 36 34 32 | 30 20 47 4f 54 4f 36 30 |6400.642|0 GOTO60|
|00000870| 35 0a 37 30 30 30 20 3a | 3a 50 52 49 4e 54 22 93 |5.7000 :|:PRINT".|
|00000880| 11 11 22 3a 4f 50 45 4e | 31 35 2c 38 2c 31 35 3a |..":OPEN|15,8,15:|
|00000890| 49 4e 50 55 54 22 44 49 | 53 4b 20 46 49 4c 45 4e |INPUT"DI|SK FILEN|
|000008a0| 41 4d 45 22 3b 46 49 4c | 45 24 3a 50 52 49 4e 54 |AME";FIL|E$:PRINT|
|000008b0| 22 11 12 50 92 52 47 11 | 11 9d 9d 9d 12 53 92 45 |"..P.RG.|.....S.E|
|000008c0| 51 11 11 9d 9d 9d 12 55 | 92 53 52 11 11 22 3a 49 |Q......U|.SR..":I|
|000008d0| 4e 50 55 54 22 44 49 53 | 4b 20 46 49 4c 45 20 54 |NPUT"DIS|K FILE T|
|000008e0| 59 50 45 22 3b 54 59 50 | 45 24 3a 4f 50 45 4e 32 |YPE";TYP|E$:OPEN2|
|000008f0| 2c 38 2c 32 2c 22 30 3a | 22 2b 46 49 4c 45 24 2b |,8,2,"0:|"+FILE$+|
|00000900| 22 2c 22 2b 54 59 50 45 | 24 2b 22 2c 52 22 3a 3a |","+TYPE|$+",R"::|
|00000910| 49 4e 50 55 54 23 31 35 | 2c 4e 2c 4e 24 2c 54 2c |INPUT#15|,N,N$,T,|
|00000920| 53 3a 49 46 4e 3c 3e 30 | 54 48 45 4e 31 30 30 30 |S:IFN<>0|THEN1000|
|00000930| 0a 37 30 39 32 20 47 4f | 54 4f 34 30 30 30 0a 37 |.7092 GO|TO4000.7|
|00000940| 30 39 34 20 4f 50 45 4e | 32 2c 38 2c 32 2c 22 30 |094 OPEN|2,8,2,"0|
|00000950| 3a 22 2b 46 49 4c 45 24 | 2b 22 2c 22 2b 54 59 50 |:"+FILE$|+","+TYP|
|00000960| 45 24 2b 22 2c 52 22 3a | 4f 50 45 4e 31 35 2c 38 |E$+",R":|OPEN15,8|
|00000970| 2c 31 35 3a 49 4e 50 55 | 54 23 31 35 2c 4e 2c 4e |,15:INPU|T#15,N,N|
|00000980| 24 2c 54 2c 53 3a 49 46 | 4e 3c 3e 30 54 48 45 4e |$,T,S:IF|N<>0THEN|
|00000990| 31 30 30 30 0a 37 31 30 | 30 20 50 52 49 4e 54 22 |1000.710|0 PRINT"|
|000009a0| 49 4e 53 45 52 54 20 42 | 41 43 4b 55 50 20 54 41 |INSERT B|ACKUP TA|
|000009b0| 50 45 22 3a 49 4e 50 55 | 54 22 44 4f 20 59 4f 55 |PE":INPU|T"DO YOU|
|000009c0| 20 57 49 53 48 20 54 4f | 20 43 48 41 4e 47 45 20 | WISH TO| CHANGE |
|000009d0| 46 49 4c 45 4e 41 4d 45 | 20 28 59 2f 4e 29 22 3b |FILENAME| (Y/N)";|
|000009e0| 43 48 47 24 3a 49 46 43 | 48 47 24 3d 22 59 22 54 |CHG$:IFC|HG$="Y"T|
|000009f0| 48 45 4e 37 31 34 30 0a | 37 31 33 30 20 47 4f 54 |HEN7140.|7130 GOT|
|00000a00| 4f 37 31 35 30 0a 37 31 | 34 30 20 49 4e 50 55 54 |O7150.71|40 INPUT|
|00000a10| 22 4e 45 57 20 46 49 4c | 45 4e 41 4d 45 22 3b 46 |"NEW FIL|ENAME";F|
|00000a20| 49 4c 45 24 0a 37 31 35 | 30 20 4f 50 45 4e 31 2c |ILE$.715|0 OPEN1,|
|00000a30| 31 2c 31 2c 46 49 4c 45 | 24 3a 47 4f 53 55 42 37 |1,1,FILE|$:GOSUB7|
|00000a40| 35 30 09 0a 37 35 30 30 | 20 3a 3a 3a 43 3d 30 3a |50..7500| :::C=0:|
|00000a50| 53 59 53 35 38 36 39 32 | 3a 50 52 49 4e 54 22 23 |SYS58692|:PRINT"#|
|00000a60| 20 4f 46 20 42 59 54 45 | 53 20 43 4f 50 49 45 44 | OF BYTE|S COPIED|
|00000a70| 20 46 52 4f 4d 20 44 49 | 53 4b 20 41 52 45 3a 22 | FROM DI|SK ARE:"|
|00000a80| 3a 50 52 49 4e 54 53 50 | 43 28 31 30 29 22 42 59 |:PRINTSP|C(10)"BY|
|00000a90| 54 45 53 20 4f 46 20 22 | 3b 42 3a 50 52 49 4e 54 |TES OF "|;B:PRINT|
|00000aa0| 23 31 2c 42 0a 37 35 36 | 30 20 47 45 54 23 32 2c |#1,B.756|0 GET#2,|
|00000ab0| 41 24 3a 53 52 3d 53 54 | 3a 50 4f 4b 45 4d 45 4d |A$:SR=ST|:POKEMEM|
|00000ac0| 2c 41 53 43 28 41 24 2b | 43 48 52 24 28 30 29 29 |,ASC(A$+|CHR$(0))|
|00000ad0| 3a 50 52 49 4e 54 23 31 | 2c 43 48 52 24 28 50 45 |:PRINT#1|,CHR$(PE|
|00000ae0| 45 4b 28 4d 45 4d 29 29 | 3b 3a 43 3d 43 2b 31 3a |EK(MEM))|;:C=C+1:|
|00000af0| 50 52 49 4e 54 22 13 22 | 3a 50 52 49 4e 54 53 50 |PRINT"."|:PRINTSP|
|00000b00| 43 28 33 29 43 3a 49 46 | 53 52 3c 3e 30 54 48 45 |C(3)C:IF|SR<>0THE|
|00000b10| 4e 37 36 35 30 0a 37 36 | 32 30 20 49 46 53 52 3d |N7650.76|20 IFSR=|
|00000b20| 30 54 48 45 4e 37 35 36 | 30 0a 37 36 35 30 20 50 |0THEN756|0.7650 P|
|00000b30| 52 49 4e 54 22 11 43 4f | 50 59 49 4e 47 20 43 4f |RINT".CO|PYING CO|
|00000b40| 4d 50 4c 45 54 45 2e 22 | 3a 50 52 49 4e 54 22 11 |MPLETE."|:PRINT".|
|00000b50| 3c 43 52 3e 20 54 4f 20 | 43 4c 4f 53 45 20 41 4c |<CR> TO |CLOSE AL|
|00000b60| 4c 20 46 49 4c 45 53 22 | 0a 37 36 36 34 20 47 45 |L FILES"|.7664 GE|
|00000b70| 54 43 52 24 3a 49 46 43 | 52 24 3c 3e 43 48 52 24 |TCR$:IFC|R$<>CHR$|
|00000b80| 28 31 33 29 54 48 45 4e | 37 36 36 34 0a 37 36 36 |(13)THEN|7664.766|
|00000b90| 38 20 43 4c 4f 53 45 31 | 3a 43 4c 4f 53 45 32 3a |8 CLOSE1|:CLOSE2:|
|00000ba0| 43 4c 4f 53 45 31 35 3a | 52 45 54 55 52 4e 0a 38 |CLOSE15:|RETURN.8|
|00000bb0| 30 30 30 20 3a 3a 50 52 | 49 4e 54 22 93 11 11 22 |000 ::PR|INT"..."|
|00000bc0| 3a 49 4e 50 55 54 22 54 | 41 50 45 20 46 49 4c 45 |:INPUT"T|APE FILE|
|00000bd0| 4e 41 4d 45 22 3b 46 49 | 4c 45 24 3a 4f 50 45 4e |NAME";FI|LE$:OPEN|
|00000be0| 31 2c 31 2c 30 2c 46 49 | 4c 45 24 3a 46 4f 52 49 |1,1,0,FI|LE$:FORI|
|00000bf0| 3d 31 54 4f 33 3a 50 52 | 49 4e 54 3a 4e 45 58 54 |=1TO3:PR|INT:NEXT|
|00000c00| 3a 49 4e 50 55 54 22 44 | 4f 20 59 4f 55 20 57 49 |:INPUT"D|O YOU WI|
|00000c10| 53 48 20 54 4f 20 43 48 | 41 4e 47 45 20 46 49 4c |SH TO CH|ANGE FIL|
|00000c20| 45 4e 41 4d 45 20 28 59 | 2f 4e 29 22 3b 43 48 47 |ENAME (Y|/N)";CHG|
|00000c30| 24 3a 49 46 43 48 47 24 | 3d 22 59 22 54 48 45 4e |$:IFCHG$|="Y"THEN|
|00000c40| 38 31 31 30 0a 38 31 30 | 30 20 47 4f 54 4f 38 31 |8110.810|0 GOTO81|
|00000c50| 32 30 0a 38 31 31 30 20 | 49 4e 50 55 54 22 4e 45 |20.8110 |INPUT"NE|
|00000c60| 57 20 46 49 4c 45 4e 41 | 4d 45 22 3b 46 49 4c 45 |W FILENA|ME";FILE|
|00000c70| 24 0a 38 31 32 30 20 50 | 52 49 4e 54 22 11 12 50 |$.8120 P|RINT"..P|
|00000c80| 92 52 47 11 11 9d 9d 9d | 12 53 92 45 51 11 11 9d |.RG.....|.S.EQ...|
|00000c90| 9d 9d 12 55 92 53 52 11 | 11 22 3a 49 4e 50 55 54 |...U.SR.|.":INPUT|
|00000ca0| 22 46 49 4c 45 20 54 59 | 50 45 22 3b 54 59 50 45 |"FILE TY|PE";TYPE|
|00000cb0| 24 3a 4f 50 45 4e 31 35 | 2c 38 2c 31 35 3a 3a 49 |$:OPEN15|,8,15::I|
|00000cc0| 4e 50 55 54 23 31 35 2c | 4e 2c 4e 24 2c 54 2c 53 |NPUT#15,|N,N$,T,S|
|00000cd0| 3a 49 46 4e 3c 3e 30 54 | 48 45 4e 09 0a 38 31 38 |:IFN<>0T|HEN..818|
|00000ce0| 30 20 4f 50 45 4e 32 2c | 38 2c 32 2c 46 49 4c 45 |0 OPEN2,|8,2,FILE|
|00000cf0| 24 2b 22 2c 22 2b 54 59 | 50 45 24 2b 22 2c 57 22 |$+","+TY|PE$+",W"|
|00000d00| 3a 47 4f 53 55 42 38 35 | 30 30 3a 47 4f 54 4f 36 |:GOSUB85|00:GOTO6|
|00000d10| 30 35 0a 38 35 30 30 20 | 3a 3a 3a 43 3d 30 3a 53 |05.8500 |:::C=0:S|
|00000d20| 59 53 35 38 36 39 32 3a | 50 52 49 4e 54 22 23 20 |YS58692:|PRINT"# |
|00000d30| 4f 46 20 42 59 54 45 53 | 20 43 4f 50 49 45 44 20 |OF BYTES| COPIED |
|00000d40| 46 52 4f 4d 20 54 41 50 | 45 20 41 52 45 3a 22 3a |FROM TAP|E ARE:":|
|00000d50| 49 4e 50 55 54 23 31 2c | 42 3a 50 52 49 4e 54 53 |INPUT#1,|B:PRINTS|
|00000d60| 50 43 28 31 30 29 22 42 | 59 54 45 53 20 4f 46 20 |PC(10)"B|YTES OF |
|00000d70| 22 3b 42 0a 38 35 36 30 | 20 47 45 54 23 31 2c 41 |";B.8560| GET#1,A|
|00000d80| 24 3a 50 4f 4b 45 4d 45 | 4d 2c 41 53 43 28 41 24 |$:POKEME|M,ASC(A$|
|00000d90| 2b 43 48 52 24 28 30 29 | 29 3a 50 52 49 4e 54 23 |+CHR$(0)|):PRINT#|
|00000da0| 32 2c 43 48 52 24 28 50 | 45 45 4b 28 4d 45 4d 29 |2,CHR$(P|EEK(MEM)|
|00000db0| 29 3b 3a 42 3d 42 2d 31 | 3a 3a 53 52 3d 53 54 3a |);:B=B-1|::SR=ST:|
|00000dc0| 49 46 28 53 52 3e 30 41 | 4e 44 53 52 3c 36 34 29 |IF(SR>0A|NDSR<64)|
|00000dd0| 54 48 45 4e 33 30 30 30 | 0a 38 35 39 30 20 43 3d |THEN3000|.8590 C=|
|00000de0| 43 2b 31 3a 50 52 49 4e | 54 22 13 22 3a 50 52 49 |C+1:PRIN|T".":PRI|
|00000df0| 4e 54 53 50 43 28 33 29 | 43 3a 49 46 42 3d 30 54 |NTSPC(3)|C:IFB=0T|
|00000e00| 48 45 4e 38 36 35 37 0a | 38 36 35 30 20 47 4f 54 |HEN8657.|8650 GOT|
|00000e10| 4f 38 35 36 30 0a 38 36 | 35 37 20 50 52 49 4e 54 |O8560.86|57 PRINT|
|00000e20| 22 43 4f 50 59 49 4e 47 | 20 43 4f 4d 50 4c 45 54 |"COPYING| COMPLET|
|00000e30| 45 2e 22 3a 50 52 49 4e | 54 22 11 3c 43 52 3e 20 |E.":PRIN|T".<CR> |
|00000e40| 54 4f 20 43 4c 4f 53 45 | 20 41 4c 4c 20 46 49 4c |TO CLOSE| ALL FIL|
|00000e50| 45 53 22 0a 38 36 39 32 | 20 47 45 54 43 52 24 3a |ES".8692| GETCR$:|
|00000e60| 49 46 43 52 24 3c 3e 43 | 48 52 24 28 31 33 29 54 |IFCR$<>C|HR$(13)T|
|00000e70| 48 45 4e 38 36 39 32 0a | 38 36 39 38 20 43 4c 4f |HEN8692.|8698 CLO|
|00000e80| 53 45 32 3a 43 4c 4f 53 | 45 31 3a 43 4c 4f 53 45 |SE2:CLOS|E1:CLOSE|
|00000e90| 31 35 3a 52 45 54 55 52 | 4e 0a 39 30 30 30 20 3a |15:RETUR|N.9000 :|
|00000ea0| 0a 39 30 32 30 20 50 52 | 49 4e 54 22 93 11 1d 41 |.9020 PR|INT"...A|
|00000eb0| 52 45 20 59 4f 55 20 53 | 55 52 45 20 28 59 2f 4e |RE YOU S|URE (Y/N|
|00000ec0| 29 3f 22 0a 39 30 36 30 | 20 47 45 54 53 55 52 45 |)?".9060| GETSURE|
|00000ed0| 24 3a 49 46 53 55 52 45 | 24 3d 22 22 54 48 45 4e |$:IFSURE|$=""THEN|
|00000ee0| 39 30 36 30 0a 39 30 38 | 30 20 49 46 53 55 52 45 |9060.908|0 IFSURE|
|00000ef0| 24 3d 22 59 22 54 48 45 | 4e 53 59 53 36 34 37 33 |$="Y"THE|NSYS6473|
|00000f00| 38 0a 39 31 30 30 20 49 | 46 53 55 52 45 24 3d 22 |8.9100 I|FSURE$="|
|00000f10| 4e 22 54 48 45 4e 36 30 | 35 0a 39 32 30 30 20 47 |N"THEN60|5.9200 G|
|00000f20| 4f 54 4f 39 30 32 30 0a | |OTO9020.| |
+--------+-------------------------+-------------------------+--------+--------+
